inherited dtmcw_OtherPay: Tdtmcw_OtherPay
  OldCreateOrder = True
  Left = 405
  Top = 332
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_cw_OtherRev where 0=0'
    object adsMasterBillID: TStringField
      DisplayLabel = #20027#38190'ID'
      FieldName = 'BillID'
    end
    object adsMasterBillNo: TStringField
      DisplayLabel = #36153#29992#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterBillDate: TDateTimeField
      DisplayLabel = #25903#20986#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterCustID: TStringField
      DisplayLabel = #24448#26469#21333#20301'ID'
      FieldName = 'CustID'
    end
    object adsMasterCustCode: TStringField
      DisplayLabel = #24448#26469#21333#20301#32534#30721
      FieldName = 'CustCode'
      ReadOnly = True
    end
    object adsMasterCustShortName: TStringField
      DisplayLabel = #24448#26469#21333#20301
      FieldName = 'CustShortName'
      ReadOnly = True
    end
    object adsMasterTransactor: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'Transactor'
    end
    object adsMasterSummary: TStringField
      DisplayLabel = #25688#35201
      FieldName = 'Summary'
      Size = 50
    end
    object adsMasterSubID: TStringField
      DisplayLabel = #36153#29992'ID'
      FieldName = 'SubID'
    end
    object adsMasterSubCode: TStringField
      DisplayLabel = #36153#29992#32534#30721
      FieldName = 'SubCode'
    end
    object adsMasterSubShortName: TStringField
      DisplayLabel = #36153#29992#21517#31216
      FieldName = 'SubShortName'
    end
    object adsMasterAccountID: TStringField
      DisplayLabel = #36134#25143'ID'
      FieldName = 'AccountID'
    end
    object adsMasterAccountCode: TStringField
      DisplayLabel = #36134#25143#32534#30721
      FieldName = 'AccountCode'
    end
    object adsMasterAccountShortName: TStringField
      DisplayLabel = #36134#25143#21517#31216
      FieldName = 'AccountShortName'
    end
    object adsMasterMoney: TFloatField
      DisplayLabel = #25903#20986#37329#39069
      FieldName = 'Money'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from cw_OtherRev'
    object adsMasterEditBillID: TStringField
      DisplayLabel = #20027#38190'ID'
      FieldName = 'BillID'
    end
    object adsMasterEditBillNo: TStringField
      DisplayLabel = #36153#29992#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterEditBillDate: TDateTimeField
      DisplayLabel = #25903#20986#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditUnitID: TStringField
      DisplayLabel = #24448#26469#21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsMasterEditTransactor: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'Transactor'
    end
    object adsMasterEditSummary: TStringField
      DisplayLabel = #25688#35201
      FieldName = 'Summary'
      Size = 50
    end
    object adsMasterEditSubID: TStringField
      DisplayLabel = #36153#29992#21517#31216'ID'
      FieldName = 'SubID'
      OnChange = adsMasterEditSubIDChange
    end
    object adsMasterEditAccountID: TStringField
      DisplayLabel = #25910#27454#36134#25143'ID'
      FieldName = 'AccountID'
    end
    object adsMasterEditMoney: TFloatField
      DisplayLabel = #25903#20986#37329#39069
      FieldName = 'Money'
      OnChange = adsMasterEditMoneyChange
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
    object adsMasterEditres_CustName: TStringField
      DisplayLabel = #24448#26469#21333#20301#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_CustName'
      LookupDataSet = res_Customer
      LookupKeyFields = 'CustID'
      LookupResultField = 'CustShortName'
      KeyFields = 'UnitID'
      Lookup = True
    end
    object adsMasterEditres_AccountName: TStringField
      DisplayLabel = #36134#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_AccountName'
      LookupDataSet = res_Account
      LookupKeyFields = 'AccountID'
      LookupResultField = 'AccountShortName'
      KeyFields = 'AccountID'
      Lookup = True
    end
    object adsMasterEditres_TransactorName: TStringField
      DisplayLabel = #32463#21150#20154
      FieldKind = fkLookup
      FieldName = 'res_TransactorName'
      LookupDataSet = res_Employee
      LookupKeyFields = 'EmpID'
      LookupResultField = 'EmpName'
      KeyFields = 'Transactor'
      Lookup = True
    end
    object adsMasterEditres_SubName: TStringField
      DisplayLabel = #36153#29992#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_SubName'
      LookupDataSet = res_Subject
      LookupKeyFields = 'SubID'
      LookupResultField = 'SubShortName'
      KeyFields = 'SubID'
      Lookup = True
    end
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'#13#10'and isnull(b' +
      '.HasStop,0)=0'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 464
    Top = 40
  end
  object ads_Subject: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'select SubID, SubCode, SubShortName, SubFullName from V_cw_Subje' +
      'ct where SubType=1'#13#10'order by SubCode'
    Parameters = <>
    Left = 200
    Top = 104
  end
  object res_Customer: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'Select CustID, CustCode, CustShortName, CustFullName from V_da_C' +
      'ustAndSupply'
    Parameters = <>
    Left = 192
    Top = 40
  end
  object res_Employee: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select EmpID, EmpName from da_Employee'
    Parameters = <>
    Left = 328
    Top = 40
  end
  object res_Account: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'Select AccountID, AccountCode, AccountShortName, AccountFullName' +
      ' from V_cw_Account'
    Parameters = <>
    Left = 328
    Top = 104
  end
  object res_Subject: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'select SubID, SubCode, SubShortName, SubFullName from V_cw_Subje' +
      'ct'
    Parameters = <>
    Left = 472
    Top = 104
  end
end
